# -*- mode: snippet -*-
# name: writexlsx using XLConnect
# key: writexlsx@XLConnect
# contributor : Shuguang Sun
# --
wb <- XLConnect::loadWorkbook("$1.xlsx", create = TRUE)
wb["sheet1"] <- ${2:$$(yas-choose-value '("data_frame_to_output" ""))}
XLConnect::saveWorkbook(wb)$0

